X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/blobdiff_plain/4c9237f9055a40c4c051021ea82fc2c6644a56a2..2faffece4fa04089abbd862d7892386c348ff737:/Radioactive%20Decay.AESL?ds=sidebyside

diff --git a/Radioactive Decay.AESL b/Radioactive Decay.AESL
new file mode 100644
index 0000000..34b3acf
--- /dev/null
+++ b/Radioactive Decay.AESL	
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES Coefficient 2
+REQUIRES Integrator 1
+REQUIRES Inverter 1
+
+DATA DIVISION
+OUTPUT OUT.X N
+ALIAS COEFFICIENT.1 InitialValue
+ALIAS COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> InitialValue -> N0
+N’, IC:N0 -> Integrator.1 -> -N
+-N -> Decay -> -lambda*N=N’
+-N -> Inverter.1 -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms